﻿Imports System.ServiceModel

Class MainWindow
    Sub New()

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
        '        ServiceHost host;
        'Service.ISORClient service = new Service.SORClient();
        '//The next are in window constructor
        'host = new ServiceHost(service);
        'host.Open();



        Me.initservice()




    End Sub

    Sub initservice()
        Dim service As New PhoneSubscriberAndPusher
        Dim host As ServiceHost = New ServiceHost(service)
        AddHandler host.Opened, Sub()
                                    '                                    MessageBox.Show("Host opened...")
                                End Sub
        host.Open()

    End Sub
End Class
